home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue42 / ASP / ASPTypeLibrary_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-12  |  26.6 KB  |  520 lines
  1. unit ASPTypeLibrary_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.63  $
  15. // File generated on 12/11/98 21:36:37 from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\WINDOWS\SYSTEM\INETSRV\ASP.DLL
  19. // IID\LCID: {D97A6DA0-A85C-11CF-83AE-00A0C90C2BD8}\0
  20. // Helpfile: 
  21. // HelpString: Microsoft Active Server Pages Object Library
  22. // Version:    2.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_ASPTypeLibrary: TGUID = '{D97A6DA0-A85C-11CF-83AE-00A0C90C2BD8}';
  38.   IID_IStringList: TGUID = '{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}';
  39.   IID_IRequestDictionary: TGUID = '{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}';
  40.   IID_IRequest: TGUID = '{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}';
  41.   CLASS_Request: TGUID = '{920C25D0-25D9-11D0-A55F-00A0C90C2091}';
  42.   IID_IReadCookie: TGUID = '{71EAF260-0CE0-11D0-A53E-00A0C90C2091}';
  43.   IID_IWriteCookie: TGUID = '{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}';
  44.   IID_IResponse: TGUID = '{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}';
  45.   CLASS_Response: TGUID = '{46E19BA0-25DD-11D0-A55F-00A0C90C2091}';
  46.   IID_IVariantDictionary: TGUID = '{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}';
  47.   IID_ISessionObject: TGUID = '{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}';
  48.   CLASS_Session: TGUID = '{509F8F20-25DE-11D0-A55F-00A0C90C2091}';
  49.   IID_IApplicationObject: TGUID = '{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}';
  50.   CLASS_Application_: TGUID = '{7C3BAF00-25DE-11D0-A55F-00A0C90C2091}';
  51.   IID_IServer: TGUID = '{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}';
  52.   CLASS_Server: TGUID = '{A506D160-25E0-11D0-A55F-00A0C90C2091}';
  53.   IID_IScriptingContext: TGUID = '{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}';
  54.   CLASS_ScriptingContext: TGUID = '{D97A6DA0-A868-11CF-83AE-11B0C90C2BD8}';
  55. type
  56.  
  57. // *********************************************************************//
  58. // Forward declaration of interfaces defined in Type Library            //
  59. // *********************************************************************//
  60.   IStringList = interface;
  61.   IStringListDisp = dispinterface;
  62.   IRequestDictionary = interface;
  63.   IRequestDictionaryDisp = dispinterface;
  64.   IRequest = interface;
  65.   IRequestDisp = dispinterface;
  66.   IReadCookie = interface;
  67.   IReadCookieDisp = dispinterface;
  68.   IWriteCookie = interface;
  69.   IWriteCookieDisp = dispinterface;
  70.   IResponse = interface;
  71.   IResponseDisp = dispinterface;
  72.   IVariantDictionary = interface;
  73.   IVariantDictionaryDisp = dispinterface;
  74.   ISessionObject = interface;
  75.   ISessionObjectDisp = dispinterface;
  76.   IApplicationObject = interface;
  77.   IApplicationObjectDisp = dispinterface;
  78.   IServer = interface;
  79.   IServerDisp = dispinterface;
  80.   IScriptingContext = interface;
  81.   IScriptingContextDisp = dispinterface;
  82.  
  83. // *********************************************************************//
  84. // Declaration of CoClasses defined in Type Library                     //
  85. // (NOTE: Here we map each CoClass to its Default Interface)            //
  86. // *********************************************************************//
  87.   Request = IRequest;
  88.   Response = IResponse;
  89.   Session = ISessionObject;
  90.   Application_ = IApplicationObject;
  91.   Server = IServer;
  92.   ScriptingContext = IScriptingContext;
  93.  
  94.  
  95. // *********************************************************************//
  96. // Interface: IStringList
  97. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  98. // GUID:      {D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}
  99. // *********************************************************************//
  100.   IStringList = interface(IDispatch)
  101.     ['{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}']
  102.     function Get_Item(i: OleVariant): OleVariant; safecall;
  103.     function Get_Count: SYSINT; safecall;
  104.     function Get__NewEnum: IUnknown; safecall;
  105.     property Item[i: OleVariant]: OleVariant read Get_Item;
  106.     property Count: SYSINT read Get_Count;
  107.     property _NewEnum: IUnknown read Get__NewEnum;
  108.   end;
  109.  
  110. // *********************************************************************//
  111. // DispIntf:  IStringListDisp
  112. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  113. // GUID:      {D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}
  114. // *********************************************************************//
  115.   IStringListDisp = dispinterface
  116.     ['{D97A6DA0-A85D-11CF-83AE-00A0C90C2BD8}']
  117.     property Item[i: OleVariant]: OleVariant readonly dispid 0; default;
  118.     property Count: SYSINT readonly dispid 1610743809;
  119.     property _NewEnum: IUnknown readonly dispid -4;
  120.   end;
  121.  
  122. // *********************************************************************//
  123. // Interface: IRequestDictionary
  124. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  125. // GUID:      {D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}
  126. // *********************************************************************//
  127.   IRequestDictionary = interface(IDispatch)
  128.     ['{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}']
  129.     function Get_Item(Var_: OleVariant): OleVariant; safecall;
  130.     function Get__NewEnum: IUnknown; safecall;
  131.     function Get_Count: SYSINT; safecall;
  132.     function Get_Key(VarKey: OleVariant): OleVariant; safecall;
  133.     property Item[Var_: OleVariant]: OleVariant read Get_Item;
  134.     property _NewEnum: IUnknown read Get__NewEnum;
  135.     property Count: SYSINT read Get_Count;
  136.     property Key[VarKey: OleVariant]: OleVariant read Get_Key;
  137.   end;
  138.  
  139. // *********************************************************************//
  140. // DispIntf:  IRequestDictionaryDisp
  141. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  142. // GUID:      {D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}
  143. // *********************************************************************//
  144.   IRequestDictionaryDisp = dispinterface
  145.     ['{D97A6DA0-A85F-11DF-83AE-00A0C90C2BD8}']
  146.     property Item[Var_: OleVariant]: OleVariant readonly dispid 0; default;
  147.     property _NewEnum: IUnknown readonly dispid -4;
  148.     property Count: SYSINT readonly dispid 1610743810;
  149.     property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743811;
  150.   end;
  151.  
  152. // *********************************************************************//
  153. // Interface: IRequest
  154. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  155. // GUID:      {D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}
  156. // *********************************************************************//
  157.   IRequest = interface(IDispatch)
  158.     ['{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}']
  159.     function Get_Item(const bstrVar: WideString): IDispatch; safecall;
  160.     function Get_QueryString: IRequestDictionary; safecall;
  161.     function Get_Form: IRequestDictionary; safecall;
  162.     function Get_Body: IRequestDictionary; safecall;
  163.     function Get_ServerVariables: IRequestDictionary; safecall;
  164.     function Get_ClientCertificate: IRequestDictionary; safecall;
  165.     function Get_Cookies: IRequestDictionary; safecall;
  166.     function Get_TotalBytes: Integer; safecall;
  167.     function BinaryRead(var pvarCountToRead: OleVariant): OleVariant; safecall;
  168.     property Item[const bstrVar: WideString]: IDispatch read Get_Item;
  169.     property QueryString: IRequestDictionary read Get_QueryString;
  170.     property Form: IRequestDictionary read Get_Form;
  171.     property Body: IRequestDictionary read Get_Body;
  172.     property ServerVariables: IRequestDictionary read Get_ServerVariables;
  173.     property ClientCertificate: IRequestDictionary read Get_ClientCertificate;
  174.     property Cookies: IRequestDictionary read Get_Cookies;
  175.     property TotalBytes: Integer read Get_TotalBytes;
  176.   end;
  177.  
  178. // *********************************************************************//
  179. // DispIntf:  IRequestDisp
  180. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  181. // GUID:      {D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}
  182. // *********************************************************************//
  183.   IRequestDisp = dispinterface
  184.     ['{D97A6DA0-A861-11CF-93AE-00A0C90C2BD8}']
  185.     property Item[const bstrVar: WideString]: IDispatch readonly dispid 0; default;
  186.     property QueryString: IRequestDictionary readonly dispid 1610743809;
  187.     property Form: IRequestDictionary readonly dispid 1610743810;
  188.     property Body: IRequestDictionary readonly dispid 1610743811;
  189.     property ServerVariables: IRequestDictionary readonly dispid 1610743812;
  190.     property ClientCertificate: IRequestDictionary readonly dispid 1610743813;
  191.     property Cookies: IRequestDictionary readonly dispid 1610743814;
  192.     property TotalBytes: Integer readonly dispid 1610743815;
  193.     function BinaryRead(var pvarCountToRead: OleVariant): OleVariant; dispid 1610743816;
  194.   end;
  195.  
  196. // *********************************************************************//
  197. // Interface: IReadCookie
  198. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  199. // GUID:      {71EAF260-0CE0-11D0-A53E-00A0C90C2091}
  200. // *********************************************************************//
  201.   IReadCookie = interface(IDispatch)
  202.     ['{71EAF260-0CE0-11D0-A53E-00A0C90C2091}']
  203.     function Get_Item(Var_: OleVariant): OleVariant; safecall;
  204.     function Get_HasKeys: WordBool; safecall;
  205.     function Get__NewEnum: IUnknown; safecall;
  206.     function Get_Count: SYSINT; safecall;
  207.     function Get_Key(VarKey: OleVariant): OleVariant; safecall;
  208.     property Item[Var_: OleVariant]: OleVariant read Get_Item;
  209.     property HasKeys: WordBool read Get_HasKeys;
  210.     property _NewEnum: IUnknown read Get__NewEnum;
  211.     property Count: SYSINT read Get_Count;
  212.     property Key[VarKey: OleVariant]: OleVariant read Get_Key;
  213.   end;
  214.  
  215. // *********************************************************************//
  216. // DispIntf:  IReadCookieDisp
  217. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  218. // GUID:      {71EAF260-0CE0-11D0-A53E-00A0C90C2091}
  219. // *********************************************************************//
  220.   IReadCookieDisp = dispinterface
  221.     ['{71EAF260-0CE0-11D0-A53E-00A0C90C2091}']
  222.     property Item[Var_: OleVariant]: OleVariant readonly dispid 0; default;
  223.     property HasKeys: WordBool readonly dispid 1610743809;
  224.     property _NewEnum: IUnknown readonly dispid -4;
  225.     property Count: SYSINT readonly dispid 1610743811;
  226.     property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743812;
  227.   end;
  228.  
  229. // *********************************************************************//
  230. // Interface: IWriteCookie
  231. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  232. // GUID:      {D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}
  233. // *********************************************************************//
  234.   IWriteCookie = interface(IDispatch)
  235.     ['{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}']
  236.     procedure Set_Item(Key: OleVariant; const Param2: WideString); safecall;
  237.     procedure Set_Expires(Param1: TDateTime); safecall;
  238.     procedure Set_Domain(const Param1: WideString); safecall;
  239.     procedure Set_Path(const Param1: WideString); safecall;
  240.     procedure Set_Secure(Param1: WordBool); safecall;
  241.     function Get_HasKeys: WordBool; safecall;
  242.     function Get__NewEnum: IUnknown; safecall;
  243.     property Item[Key: OleVariant]: WideString write Set_Item;
  244.     property Expires: TDateTime write Set_Expires;
  245.     property Domain: WideString write Set_Domain;
  246.     property Path: WideString write Set_Path;
  247.     property Secure: WordBool write Set_Secure;
  248.     property HasKeys: WordBool read Get_HasKeys;
  249.     property _NewEnum: IUnknown read Get__NewEnum;
  250.   end;
  251.  
  252. // *********************************************************************//
  253. // DispIntf:  IWriteCookieDisp
  254. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  255. // GUID:      {D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}
  256. // *********************************************************************//
  257.   IWriteCookieDisp = dispinterface
  258.     ['{D97A6DA0-A862-11CF-84AE-00A0C90C2BD8}']
  259.     property Item[Key: OleVariant]: WideString writeonly dispid 0; default;
  260.     property Expires: TDateTime writeonly dispid 1610743809;
  261.     property Domain: WideString writeonly dispid 1610743810;
  262.     property Path: WideString writeonly dispid 1610743811;
  263.     property Secure: WordBool writeonly dispid 1610743812;
  264.     property HasKeys: WordBool readonly dispid 1610743813;
  265.     property _NewEnum: IUnknown readonly dispid -4;
  266.   end;
  267.  
  268. // *********************************************************************//
  269. // Interface: IResponse
  270. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  271. // GUID:      {D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}
  272. // *********************************************************************//
  273.   IResponse = interface(IDispatch)
  274.     ['{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}']
  275.     function Get_Buffer: WordBool; safecall;
  276.     procedure Set_Buffer(fIsBuffering: WordBool); safecall;
  277.     function Get_ContentType: WideString; safecall;
  278.     procedure Set_ContentType(const pbstrContentTypeRet: WideString); safecall;
  279.     function Get_Expires: OleVariant; safecall;
  280.     procedure Set_Expires(pvarExpiresMinutesRet: Integer); safecall;
  281.     function Get_ExpiresAbsolute: OleVariant; safecall;
  282.     procedure Set_ExpiresAbsolute(pvarExpiresRet: TDateTime); safecall;
  283.     function Get_Cookies: IRequestDictionary; safecall;
  284.     function Get_Status: WideString; safecall;
  285.     procedure Set_Status(const pbstrStatusRet: WideString); safecall;
  286.     procedure Add(const bstrHeaderValue: WideString; const bstrHeaderName: WideString); safecall;
  287.     procedure AddHeader(const bstrHeaderName: WideString; const bstrHeaderValue: WideString); safecall;
  288.     procedure AppendToLog(const bstrLogEntry: WideString); safecall;
  289.     procedure BinaryWrite(varInput: OleVariant); safecall;
  290.     procedure Clear; safecall;
  291.     procedure End_; safecall;
  292.     procedure Flush; safecall;
  293.     procedure Redirect(const bstrURL: WideString); safecall;
  294.     procedure Write(varText: OleVariant); safecall;
  295.     procedure WriteBlock(iBlockNumber: Smallint); safecall;
  296.     function IsClientConnected: WordBool; safecall;
  297.     function Get_CharSet: WideString; safecall;
  298.     procedure Set_CharSet(const pbstrCharSetRet: WideString); safecall;
  299.     procedure Pics(const bstrHeaderValue: WideString); safecall;
  300.     function Get_CacheControl: WideString; safecall;
  301.     procedure Set_CacheControl(const pbstrCacheControl: WideString); safecall;
  302.     property Buffer: WordBool read Get_Buffer write Set_Buffer;
  303.     property ContentType: WideString read Get_ContentType write Set_ContentType;
  304.     property Cookies: IRequestDictionary read Get_Cookies;
  305.     property Status: WideString read Get_Status write Set_Status;
  306.     property CharSet: WideString read Get_CharSet write Set_CharSet;
  307.     property CacheControl: WideString read Get_CacheControl write Set_CacheControl;
  308.   end;
  309.  
  310. // *********************************************************************//
  311. // DispIntf:  IResponseDisp
  312. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  313. // GUID:      {D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}
  314. // *********************************************************************//
  315.   IResponseDisp = dispinterface
  316.     ['{D97A6DA0-A864-11CF-83BE-00A0C90C2BD8}']
  317.     property Buffer: WordBool dispid 1610743808;
  318.     property ContentType: WideString dispid 1610743810;
  319.     function Expires: OleVariant; dispid 1610743812;
  320.     function ExpiresAbsolute: OleVariant; dispid 1610743814;
  321.     property Cookies: IRequestDictionary readonly dispid 1610743816;
  322.     property Status: WideString dispid 1610743817;
  323.     procedure Add(const bstrHeaderValue: WideString; const bstrHeaderName: WideString); dispid 1610743819;
  324.     procedure AddHeader(const bstrHeaderName: WideString; const bstrHeaderValue: WideString); dispid 1610743820;
  325.     procedure AppendToLog(const bstrLogEntry: WideString); dispid 1610743821;
  326.     procedure BinaryWrite(varInput: OleVariant); dispid 1610743822;
  327.     procedure Clear; dispid 1610743823;
  328.     procedure End_; dispid 1610743824;
  329.     procedure Flush; dispid 1610743825;
  330.     procedure Redirect(const bstrURL: WideString); dispid 1610743826;
  331.     procedure Write(varText: OleVariant); dispid 1610743827;
  332.     procedure WriteBlock(iBlockNumber: Smallint); dispid 1610743828;
  333.     function IsClientConnected: WordBool; dispid 1610743829;
  334.     property CharSet: WideString dispid 1610743830;
  335.     procedure Pics(const bstrHeaderValue: WideString); dispid 1610743832;
  336.     property CacheControl: WideString dispid 1610743833;
  337.   end;
  338.  
  339. // *********************************************************************//
  340. // Interface: IVariantDictionary
  341. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  342. // GUID:      {4A7DEB90-B069-11D0-B373-00A0C90C2BD8}
  343. // *********************************************************************//
  344.   IVariantDictionary = interface(IDispatch)
  345.     ['{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}']
  346.     function Get_Item(VarKey: OleVariant): OleVariant; safecall;
  347.     procedure _Set_Item(VarKey: OleVariant; pvar: OleVariant); safecall;
  348.     procedure Set_Item(VarKey: OleVariant; pvar: OleVariant); safecall;
  349.     function Get_Key(VarKey: OleVariant): OleVariant; safecall;
  350.     function Get_Count: SYSINT; safecall;
  351.     function Get__NewEnum: IUnknown; safecall;
  352.     property Item[VarKey: OleVariant]: OleVariant read Get_Item write _Set_Item;
  353.     property Key[VarKey: OleVariant]: OleVariant read Get_Key;
  354.     property Count: SYSINT read Get_Count;
  355.     property _NewEnum: IUnknown read Get__NewEnum;
  356.   end;
  357.  
  358. // *********************************************************************//
  359. // DispIntf:  IVariantDictionaryDisp
  360. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  361. // GUID:      {4A7DEB90-B069-11D0-B373-00A0C90C2BD8}
  362. // *********************************************************************//
  363.   IVariantDictionaryDisp = dispinterface
  364.     ['{4A7DEB90-B069-11D0-B373-00A0C90C2BD8}']
  365.     property Item[VarKey: OleVariant]: OleVariant dispid 0; default;
  366.     property Key[VarKey: OleVariant]: OleVariant readonly dispid 1610743811;
  367.     property Count: SYSINT readonly dispid 1610743812;
  368.     property _NewEnum: IUnknown readonly dispid -4;
  369.   end;
  370.  
  371. // *********************************************************************//
  372. // Interface: ISessionObject
  373. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  374. // GUID:      {D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}
  375. // *********************************************************************//
  376.   ISessionObject = interface(IDispatch)
  377.     ['{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}']
  378.     function Get_SessionID: WideString; safecall;
  379.     function Get_Value(const bstrValue: WideString): OleVariant; safecall;
  380.     procedure _Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
  381.     procedure Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
  382.     function Get_Timeout: Integer; safecall;
  383.     procedure Set_Timeout(plvar: Integer); safecall;
  384.     procedure Abandon; safecall;
  385.     function Get_CodePage: Integer; safecall;
  386.     procedure Set_CodePage(plvar: Integer); safecall;
  387.     function Get_LCID: Integer; safecall;
  388.     procedure Set_LCID(plvar: Integer); safecall;
  389.     function Get_StaticObjects: IVariantDictionary; safecall;
  390.     function Get_Contents: IVariantDictionary; safecall;
  391.     property SessionID: WideString read Get_SessionID;
  392.     property Value[const bstrValue: WideString]: OleVariant read Get_Value write _Set_Value;
  393.     property Timeout: Integer read Get_Timeout write Set_Timeout;
  394.     property CodePage: Integer read Get_CodePage write Set_CodePage;
  395.     property LCID: Integer read Get_LCID write Set_LCID;
  396.     property StaticObjects: IVariantDictionary read Get_StaticObjects;
  397.     property Contents: IVariantDictionary read Get_Contents;
  398.   end;
  399.  
  400. // *********************************************************************//
  401. // DispIntf:  ISessionObjectDisp
  402. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  403. // GUID:      {D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}
  404. // *********************************************************************//
  405.   ISessionObjectDisp = dispinterface
  406.     ['{D97A6DA0-A865-11CF-83AF-00A0C90C2BD8}']
  407.     property SessionID: WideString readonly dispid 1610743808;
  408.     property Value[const bstrValue: WideString]: OleVariant dispid 0; default;
  409.     property Timeout: Integer dispid 1610743812;
  410.     procedure Abandon; dispid 1610743814;
  411.     property CodePage: Integer dispid 1610743815;
  412.     property LCID: Integer dispid 1610743817;
  413.     property StaticObjects: IVariantDictionary readonly dispid 1610743819;
  414.     property Contents: IVariantDictionary readonly dispid 1610743820;
  415.   end;
  416.  
  417. // *********************************************************************//
  418. // Interface: IApplicationObject
  419. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  420. // GUID:      {D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}
  421. // *********************************************************************//
  422.   IApplicationObject = interface(IDispatch)
  423.     ['{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}']
  424.     function Get_Value(const bstrValue: WideString): OleVariant; safecall;
  425.     procedure _Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
  426.     procedure Set_Value(const bstrValue: WideString; pvar: OleVariant); safecall;
  427.     procedure Lock; safecall;
  428.     procedure UnLock; safecall;
  429.     function Get_StaticObjects: IVariantDictionary; safecall;
  430.     function Get_Contents: IVariantDictionary; safecall;
  431.     property Value[const bstrValue: WideString]: OleVariant read Get_Value write _Set_Value;
  432.     property StaticObjects: IVariantDictionary read Get_StaticObjects;
  433.     property Contents: IVariantDictionary read Get_Contents;
  434.   end;
  435.  
  436. // *********************************************************************//
  437. // DispIntf:  IApplicationObjectDisp
  438. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  439. // GUID:      {D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}
  440. // *********************************************************************//
  441.   IApplicationObjectDisp = dispinterface
  442.     ['{D97A6DA0-A866-11CF-83AE-10A0C90C2BD8}']
  443.     property Value[const bstrValue: WideString]: OleVariant dispid 0; default;
  444.     procedure Lock; dispid 1610743811;
  445.     procedure UnLock; dispid 1610743812;
  446.     property StaticObjects: IVariantDictionary readonly dispid 1610743813;
  447.     property Contents: IVariantDictionary readonly dispid 1610743814;
  448.   end;
  449.  
  450. // *********************************************************************//
  451. // Interface: IServer
  452. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  453. // GUID:      {D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}
  454. // *********************************************************************//
  455.   IServer = interface(IDispatch)
  456.     ['{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}']
  457.     function Get_ScriptTimeout: Integer; safecall;
  458.     procedure Set_ScriptTimeout(plTimeoutSeconds: Integer); safecall;
  459.     function CreateObject(const bstrProgID: WideString): IDispatch; safecall;
  460.     function HTMLEncode(const bstrIn: WideString): WideString; safecall;
  461.     function MapPath(const bstrLogicalPath: WideString): WideString; safecall;
  462.     function URLEncode(const bstrIn: WideString): WideString; safecall;
  463.     function URLPathEncode(const bstrIn: WideString): WideString; safecall;
  464.     property ScriptTimeout: Integer read Get_ScriptTimeout write Set_ScriptTimeout;
  465.   end;
  466.  
  467. // *********************************************************************//
  468. // DispIntf:  IServerDisp
  469. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  470. // GUID:      {D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}
  471. // *********************************************************************//
  472.   IServerDisp = dispinterface
  473.     ['{D97A6DA0-A867-11CF-83AE-01A0C90C2BD8}']
  474.     property ScriptTimeout: Integer dispid 1610743808;
  475.     function CreateObject(const bstrProgID: WideString): IDispatch; dispid 1610743810;
  476.     function HTMLEncode(const bstrIn: WideString): WideString; dispid 1610743811;
  477.     function MapPath(const bstrLogicalPath: WideString): WideString; dispid 1610743812;
  478.     function URLEncode(const bstrIn: WideString): WideString; dispid 1610743813;
  479.     function URLPathEncode(const bstrIn: WideString): WideString; dispid 1610743814;
  480.   end;
  481.  
  482. // *********************************************************************//
  483. // Interface: IScriptingContext
  484. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  485. // GUID:      {D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}
  486. // *********************************************************************//
  487.   IScriptingContext = interface(IDispatch)
  488.     ['{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}']
  489.     function Get_Request: IRequest; safecall;
  490.     function Get_Response: IResponse; safecall;
  491.     function Get_Server: IServer; safecall;
  492.     function Get_Session: ISessionObject; safecall;
  493.     function Get_Application_: IApplicationObject; safecall;
  494.     property Request: IRequest read Get_Request;
  495.     property Response: IResponse read Get_Response;
  496.     property Server: IServer read Get_Server;
  497.     property Session: ISessionObject read Get_Session;
  498.     property Application_: IApplicationObject read Get_Application_;
  499.   end;
  500.  
  501. // *********************************************************************//
  502. // DispIntf:  IScriptingContextDisp
  503. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  504. // GUID:      {D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}
  505. // *********************************************************************//
  506.   IScriptingContextDisp = dispinterface
  507.     ['{D97A6DA0-A868-11CF-83AE-00B0C90C2BD8}']
  508.     property Request: IRequest readonly dispid 1610743808;
  509.     property Response: IResponse readonly dispid 1610743809;
  510.     property Server: IServer readonly dispid 1610743810;
  511.     property Session: ISessionObject readonly dispid 1610743811;
  512.     property Application_: IApplicationObject readonly dispid 1610743812;
  513.   end;
  514.  
  515. implementation
  516.  
  517. uses ComObj;
  518.  
  519. end.
  520.